package Class::Value::Contact::EmailAddress_TEST;

# $Id$

use strict;
use warnings;
use Test::More;


our $VERSION = '0.02';


use base 'Class::Value::Test';


use constant TESTDATA => (
    {
        args => {},
        valid => [ qw(
            gr@univie.ac.at
            123@456.789.zz
            *@q.to
            a+b@c.com
            0@0.0
        ) ],
        invalid => [ qw(
            Borg
            a.test
            foo@bar.com@blah.com
            0@0
            foo@at
            fh@@univie.ac.at
            fh@univie.ac.at@univie.ac.at
            12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890@foo.at
            z.o.m.@gmx.net
            "z.o.m.@gmx.net"
        ) ],
    },
);


1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

{% p.package %} - contact-related value objects

=head1 SYNOPSIS

    {% p.package %}->new;

=head1 DESCRIPTION

None yet. This is an early release; fully functional, but undocumented. The
next release will have more documentation.

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% p.write_inheritance %}

{% PROCESS standard_pod %}

=cut

